100 VIC=53248:FOR I=1 TO 4: FOR J=1 TO 3:READ SY$(I,J),ND(I,J):NEXT J,I
110 FOR I=1 TO4:READ RC(I),CC(I):NEXTI
120 D=INT(RND(1)*4+1)
130 R=12:C=20:PRINT"[147]";TAB(C);"+[157]";:POKE VIC+33,0
140 R=R+RC(D):C=C+CC(D):N=6
150 T=INT(RND(1)*N+1):IF T>3 THEN T=3
160 ND=ND(D,T):R2=R+RC(ND):C2=C+CC(ND)
170 IF R2<1 OR R2>23 OR C2<1 OR C2>38 THEN 150
180 IF RND(1)>.96 THEN PRINT LEFT$("[159][156][158][129]", RND(1)*5+1);
190 PRINT MID$("[145][157]",D,1);SY$(D,T);"[157]";
200 GETA$:IF A$="Q" THEN END
210 D=ND:R=R2:C=C2:GOTO150
260 DATA "[176]",2,"[174]",4,"[221]",1
270 DATA "[174]",3,"[189]",1,"[192]",2
280 DATA "[189]",4,"[173]",2,"[221]",3
290 DATA "[173]",1,"[176]",3,"[192]",4
300 DATA -1,0,0,1,1,0,0,-1